inherited rstDebts: TrstDebts
  Left = 343
  Top = 231
  Caption = #1056#1077#1077#1089#1090#1088' '#1076#1086#1083#1075#1086#1074
  ClientHeight = 730
  ClientWidth = 1004
  Icon.Data = {
    0000010001002020000001002000A81000001600000028000000200000004000
    0000010020000000000080100000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    000000000000000000000000000000000000000000000000000000000000955E
    1D0496601D1C965F1D3B965F1D509C651E659B641E779A631E969A631E999B64
    1E879C651E67945D1C45935D1C25925B1C040000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    00000000000000000000000000000000000000000000965F1D0A9A631E509A63
    1EA299611DC6955E1CE5925B1BFA915A1BFF90591BFF8F571AFF8E561AFF8754
    1AFF82511AFF91591BEF965F1DCF9A631E9C98611E3D00000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000955F1D069A641E439A631FD3925B1BFF8D56
    1AFF8D561AFF8E571AFF8F571AFF8F581AFF8F571AFF8E561AFF8D561AFF8350
    19FF794A19FF8D551BFF885018FF895118FF91591BFF99621E69000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    000000000000000000000000000099631E4E8A5A20E2976022FF8E571AFF9058
    1AFF91591BFF925A1BFF925B1BFF925B1BFF925B1BFF915A1BFF90591BFF8854
    1AFF7F4F1AFF915A1FFF8A5219FF885018FF8B541AFF99621E70000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000096611E10945F1DE981521DFF986122FF925A1BFF945C
    1CFF955D1CFF965F1DFF965F1DFF97601DFF965F1DFF955E1CFF955D1CFF8C58
    1CFF85531BFF976023FF8D551AFF8B5319FF8F581BFF99621E56000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000095652058925B1CFF88551CFF986120FF955D1CFF965F
    1DFF98611DFF9A631EFF9A631EFF9B641EFF9A631EFF99621DFF98601DFF905B
    1CFF89561CFF9B6526FF8F581AFF8C5519FF925B1BFF99631E3A000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    000000000000000000009068227A935C1BFF8F5A1CFF99621EFF98611DFF9B64
    1EFF9C651FFF9E671FFF9F681FFF9F681FFF9F681FFF9D661FFF9C651FFF9560
    1EFF89581DFFA16C2AFF925B1BFF8F581AFF97601DFE97611E14000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    000000000000000000008D692372955E1CFF955E1DFF99621EFF9B641EFF9E67
    1FFFA0691FFFA26B20FFA26C20FFA36C20FFA26C20FFA16A20FF9F681FFF9964
    1EFF88591DFFA67130FF965E1DFF915A1BFF99621DEA945E1E01000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    000000000000000000008A6C255B97601DFF97601DFF9C651EFF9F681FFFA26B
    20FFA46D21FFA66F22FFA77022FFA77022FFA77022FFA56E21FFA36D21FFA069
    20FF92601EFF936224FF9E6826FF955D1CFF9B631EB600000000000000000000
    0000000000000000000000000000000000000000000000000000000000001D8A
    481F22884730288645416175325F9A631EFF99621EFF9E671FFFA16A20FFA46E
    21FFA67022FFA97222FFAA7323FFAA7423FFAA7323FFA87122FFA66F22FFA36C
    20FF9F6920FF93601EFF986322FF9B6421FF9D661F8100000000000000000000
    0000000000000000000000000000109751190E904E610E8E4CB70E904CED0E93
    4CFF0E954CFF0E964CFF178946FF986620FF9B641EFFA06920FFA36C21FFA770
    22FFAA7323FFAC7624FFAE7724FFAE7724FFAD7724FFAB7523FFA97223FFA56F
    21FFA36C20FF9E671FFF97621EFF9A6420F09C66204700000000000000000000
    000000000000000000000F96500D13884BB712984DF6109C4DFF109F4EFF10A1
    4FFF10A14FFF10A04EFF139047FF83732AFF9D661FFFA16A20FFA46E21FFA872
    22FFAC7523FFAE7824FFB07A25FFB17B25FFAF7925FFAD7724FFAB7423FFA770
    22FFA36D21FF9F681FFF9B641EFFA06A24C99C66201F00000000000000000000
    000000000000119C53030E8F4E8515924AFF14A451FF11A452FF11A654FF12A7
    56FF12A756FF11A654FF14984DFF5D9349FF9B6921FFA26B20FFA66F21FFA973
    23FFAE7825FFBE8834FFC28C37FFBD8630FFB37D26FFAE7824FFAC7524FFA871
    22FFA56E21FFA36D23FFAC752CFF9D6720690000000000000000000000000000
    000000000000119851100E8D4DB9139F4FFF13A654FF12A857FF12AB5AFF13AC
    5BFF13AC5BFF12AB5AFF149E52FF45AA5FFF84732AFFA26C21FFA66F21FFAA73
    24FFAD7727FFAA8249FFAC8853FFB68032FFC38C38FFAF7925FFAC7524FFA871
    22FFA77023FFB57E33FFA87129C7A06B250E0000000000000000000000000000
    0000000000001297530C0E8D4DB611A554FF13A958FF13AE5DFF14B060FF14B2
    62FF14B262FF14B060FF14A85AFF34AE66FF479B4EFF9B6E26FEAB7428FFB07A
    2DFFA0763CF08A9DAEFFA5B6C4FF969A97FFA48658FFAE782AFFAB7423FFAC75
    27FFAD762BF79D67218EA0702D16000000000000000000000000000000000000
    000000000000199C5902129050A612A756FF13AC5BFF14B161FF14B564FF15B7
    67FF15B767FF14B564FF14B161FF19A75AFF24AA5EFF5B7836BC9C6620859370
    3FE68C897EF97F93A4FF8B9EAFFF96AABBFF93A2ACFF9E7843FFAB7426FFA670
    25EB9E672077A075390A00000000000000000000000000000000000000000000
    000000000000000000001792556B12A357FF13AF5FFF15B564FF19B969FF19BC
    6CFF16BC6CFF15B868FF15B564FF14AF5EFF189B54FD3C925B3687A3A02093A8
    B9EF96ABBBFF92A6B7FF879BACFF8599AAFF8FA4B5FF90928BFF997646F19A81
    5B47000000000000000000000000000000000000000000000000000000000000
    0000000000000000000021955920139953F913AF5FFF18B364FF33AD62FF40B1
    66FF27BB6DFF16BA6AFF15B666FF23AE5FFF299854CF629B720488A4A47D98AC
    BDFF9EB0C1FF97ABBCFF93A7B8FF899EAFFF8599AAFF8898A5FC919EA5860000
    0000000000000000000000000000000000000000000000000000000000000000
    000000000000000000000000000020955B821DA059F22F9F63F75F988AF97AA8
    A0FF51A173FF1AB164FF1FAA5FFE339A5BB73494612E7AA4961893A8B9C2A9B9
    C9FFA4B6C5FF9BAEBEFF95A9BAFF92A7B8FF8CA0B1FF8B9DABB48E8F89120000
    0000000000000000000000000000000000000000000000000000000000000000
    00000000000000000000000000004AA580143F9E754A71A2A0E7819BA8FC8DA0
    B1FF83A4ABFF259761FE24925CAE529D7A1B000000007AA39B3699ACBDE0B4C2
    D1FFAABAC9FF9EB1C1FF97ABBCFF93A8B9FF92A6B7F686959F86000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    00000000000000000000000000000000000080A6A94B9BAEBFFF99ADBEFF8DA2
    B3FF899DAEFF739B9CB0629B8B15000000000000000081A1A557A7B7C7FABAC7
    D5FFB0BECDFFA3B5C5FF9BAEBFFF93A8B9FF93A8B9FB616E7CD9575E67390000
    0000000000000000000000000000000000000000000000000000000000000000
    00000000000000000000000000000000000086A6AC94ABBBCAFF9FB1C2FF93A8
    B9FF8EA3B4F779999F3C00000000000000000000000093A8B97FAEBDCCFFBBC9
    D6FFB2C1D0FFA6B7C7FF9DB0C1FF8091A0FF8DA1B1FF535E6BFD2F353EBC4C54
    5D04000000000000000000000000000000000000000000000000000000000000
    000000000000000000000000000074959815A5B6C6BFB8C5D3FFA7B8C7FF95A9
    B9FF8FA4B5EB506169865B7C7A09000000000000000092A7B8B3AFBECDFFB9C6
    D4FFB1C0CEFFA5B6C5FF9CAEBEFF5F6B77FF4E5862FF333A43FF2F353EFF3C43
    4D6C000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000778F982BAABACAD5BAC7D5FFA9BAC9FF8696
    A5FF66737FFF313740E63A454C4100000000000000008FA4B5C9A8B6C5FFB0BD
    CBFFA8B6C5FF9CADBCFF94A5B5FF5C6873FF2B3037FF2D333CFF2F353EFF3239
    42A9454E59050000000000000000000000000000000000000000000000000000
    00000000000000000000000000006B7A864C9FAFBEE49EABB8FF85919FFF6571
    7DFF2F353DFF2F343DFF2F353E86535F691646515A487E90A0CD8E9DABFF838E
    9AFF666E79FF505761FF4C545EFF353C45FF242930FF2F353EFF2F353EFF2F35
    3EB43D454F0A0000000000000000000000000000000000000000000000000000
    0000000000000000000000000000383F49C14D5761F5434952FF32373FFF2F35
    3DFF2C323AFF30363FFF30363F7B525C6732353C45D5384049F23B424BFF3136
    3EFF2D3139FF262A32FF242930FF2A2F38FF2B3139FF2F353EFF2F353EFF333A
    439D3E4650020000000000000000000000000000000000000000000000000000
    00000000000000000000000000003B434C5E383F4AE43D4551FF39404BFF383F
    4AFF39414CFF383F4AE04F586336535C6805333A43763C434EF9353C46FF2E34
    3DFF2D333CFF2C313AFF2E343DFF2F353EFF2F353EFF30363FFF353B45FD333A
    4344000000000000000000000000000000000000000000000000000000000000
    00000000000000000000000000005E6974073A414A4A373E49D53D4550FD3F47
    53FF3A424DF83A414B68535D6807000000004B535E0B3137408B3B434FF54048
    54FF313842FF2F353EFF2F353EFF2F353EFF2F353EFF3C434FFF333A44C1373E
    4806000000000000000000000000000000000000000000000000000000000000
    00000000000000000000000000000000000000000000000000003F465114373D
    4730454D580C0000000000000000000000000000000041485302353C454A363D
    48C5444D59F4444D5AFF434C58FF434C59FF454E5BFC373E48B4363D46270000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    000000000000000000000000000000000000000000000000000000000000363D
    461B3137404E3239438A343A4499333A449230363F663339431D000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    000000000000000000000000000000000000000000000000000000000000FFFF
    0007FFFC0003FFF00001FFF00001FFE00001FFE00001FFE00001FFE00001FFE0
    0003FF000003F0000003E0000003C0000007C0000007C000000FC000001FE000
    007FE00000FFF00000FFF00401FFF80C00FFF81C007FF00C007FF00C003FF000
    003FF000003FF000007FF008007FFE3C00FFFFFF01FFFFFFFFFFFFFFFFFF}
  OldCreateOrder = True
  Position = poDesigned
  ExplicitWidth = 1020
  ExplicitHeight = 768
  PixelsPerInch = 96
  TextHeight = 13
  inherited ToolBar1: TToolBar
    Width = 1004
    ExplicitWidth = 1004
  end
  inherited DBGridEh1: TDBGridEh
    Width = 1004
    Height = 671
    FooterRowCount = 1
    ImeMode = imDisable
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    PopupMenu = PopupMenu1
    RowHeight = 38
    RowSizingAllowed = True
    SumList.Active = True
    OnDblClick = aRecordEditExecute
    Columns = <
      item
        EditButtons = <>
        FieldName = 'RID'
        Footers = <>
        Width = 46
      end
      item
        EditButtons = <>
        FieldName = 'RTOWN'
        Footers = <>
        Width = 106
      end
      item
        EditButtons = <>
        FieldName = 'RNAME'
        Footers = <>
        Width = 166
      end
      item
        EditButtons = <>
        FieldName = 'RSUMMA'
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = 'RNOTES'
        Footers = <>
        Width = 108
      end
      item
        EditButtons = <>
        FieldName = 'RDEBTOR_ID'
        Footers = <>
        Visible = False
      end
      item
        EditButtons = <>
        FieldName = 'RDOGTYPE'
        Footers = <>
        Width = 69
      end
      item
        EditButtons = <>
        FieldName = 'RDOGNO_DATE'
        Footers = <>
        Width = 81
      end
      item
        EditButtons = <>
        FieldName = 'RCONTRAGENT'
        Footers = <>
        Width = 94
      end
      item
        EditButtons = <>
        FieldName = 'RPHONES'
        Footers = <>
        Width = 207
      end>
  end
  inherited StatusBar1: TStatusBar
    Top = 711
    Width = 1004
    Panels = <
      item
        Width = 100
      end
      item
        Width = 150
      end
      item
        Width = 150
      end
      item
        Width = 200
      end>
    ExplicitTop = 711
    ExplicitWidth = 1004
  end
  inherited ActionList1: TActionList
    Left = 208
    Top = 130
    inherited aReports: TAction
      Hint = #1055#1077#1095#1072#1090#1100' '#1086#1090#1095#1077#1090#1086#1074' '#1087#1086' '#1088#1077#1077#1089#1090#1088#1091
    end
  end
  inherited dsReestr: TpFIBDataSet
    RefreshSQL.Strings = (
      'SELECT'
      '    RID,'
      '    RDOGTYPE,'
      '    RDOGNO_DATE,'
      '    RTOWN,'
      '    RNAME,'
      '    RSUMMA,'
      '    RNOTES,'
      '    RDEBTOR_ID,'
      '    RCONTRAGENT,'
      '    RPHONES'
      'FROM'
      '    PR_RST_DEBTS(:PMAINPARAMS,'
      '    :PADDPARAMS) ')
    SelectSQL.Strings = (
      'SELECT'
      '    RID,'
      '    RDOGTYPE,'
      '    RDOGNO_DATE,'
      '    RTOWN,'
      '    RNAME,'
      '    RSUMMA,'
      '    RNOTES,'
      '    RDEBTOR_ID,'
      '    RCONTRAGENT,'
      '    RPHONES'
      'FROM'
      '    PR_RST_DEBTS(:PMAINPARAMS,'
      '    :PADDPARAMS) ')
    Left = 44
    Top = 80
    object dsReestrRID: TFIBIntegerField
      DisplayLabel = #1048#1044
      FieldName = 'RID'
    end
    object dsReestrRTOWN: TFIBStringField
      DisplayLabel = #1043#1086#1088#1086#1076
      FieldName = 'RTOWN'
      Size = 32
      EmptyStrToNull = True
    end
    object dsReestrRNAME: TFIBStringField
      DisplayLabel = #1060#1048#1054
      FieldName = 'RNAME'
      Size = 120
      EmptyStrToNull = True
    end
    object dsReestrRSUMMA: TFIBBCDField
      DisplayLabel = #1057#1091#1084#1084#1072
      FieldName = 'RSUMMA'
      Size = 2
      RoundByScale = True
    end
    object dsReestrRNOTES: TFIBStringField
      DisplayLabel = #1047#1072#1084#1077#1090#1082#1080
      FieldName = 'RNOTES'
      Size = 1000
      EmptyStrToNull = True
    end
    object dsReestrRDEBTOR_ID: TFIBIntegerField
      FieldName = 'RDEBTOR_ID'
      Visible = False
    end
    object dsReestrRDOGTYPE: TFIBStringField
      DisplayLabel = #1044#1086#1075#1086#1074#1086#1088'|'#1042#1080#1076
      FieldName = 'RDOGTYPE'
      Size = 32
      EmptyStrToNull = True
    end
    object dsReestrRDOGNO_DATE: TFIBStringField
      DisplayLabel = #1044#1086#1075#1086#1074#1086#1088'|'#1053#1086#1084#1077#1088'/'#1076#1072#1090#1072
      FieldName = 'RDOGNO_DATE'
      Size = 120
      EmptyStrToNull = True
    end
    object dsReestrRCONTRAGENT: TFIBStringField
      DisplayLabel = #1044#1086#1075#1086#1074#1086#1088'|'#1070#1088#1083#1080#1094#1086
      FieldName = 'RCONTRAGENT'
      Size = 120
      EmptyStrToNull = True
    end
    object dsReestrRPHONES: TFIBStringField
      DisplayLabel = #1058#1077#1083#1077#1092#1086#1085#1099
      FieldName = 'RPHONES'
      Size = 512
      EmptyStrToNull = True
    end
  end
  inherited trReestr: TpFIBTransaction
    Left = 104
    Top = 80
  end
  inherited dscReestr: TDataSource
    Left = 74
    Top = 80
  end
  object ActionList2: TActionList [7]
    Images = MainForm.ImageList2
    Left = 320
    Top = 150
    object aPayAdd: TAction
      Caption = #1044#1086#1073#1072#1074#1080#1090#1100' '#1092#1080#1085#1072#1085#1089#1086#1074#1091#1102' '#1086#1087#1077#1088#1072#1094#1080#1102' '#1087#1086' '#1076#1086#1083#1075#1091
      Hint = #1044#1086#1073#1072#1074#1080#1090#1100' '#1092#1080#1085#1072#1085#1089#1086#1074#1091#1102' '#1086#1087#1077#1088#1072#1094#1080#1102' '#1087#1086' '#1076#1086#1083#1075#1091
      ImageIndex = 1
      OnExecute = aPayAddExecute
    end
    object aChangeMass: TAction
      Caption = #1052#1072#1089#1089#1086#1074#1086#1077' '#1080#1079#1084#1077#1085#1077#1085#1080#1077' '#1089#1074#1086#1081#1089#1090#1074' '#1076#1086#1083#1075#1086#1074
      Hint = #1048#1079#1084#1077#1085#1077#1085#1080#1077' '#1089#1074#1086#1081#1089#1090#1074' '#1074#1089#1077#1093' '#1076#1086#1083#1075#1086#1074' '#1080#1079' '#1074#1099#1073#1088#1072#1085#1085#1086#1075#1086' '#1089#1087#1080#1089#1082#1072
      OnExecute = aChangeMassExecute
    end
    object aToDoAdd: TAction
      Caption = #1057#1086#1079#1076#1072#1090#1100' '#1088#1072#1073#1086#1090#1099' '#1087#1086' '#1074#1089#1077#1084' '#1076#1086#1083#1075#1072#1084', '#1074#1099#1073#1088#1072#1085#1085#1099#1084' '#1074' '#1090#1072#1073#1083#1080#1094#1077
      Hint = #1057#1086#1079#1076#1072#1090#1100' '#1088#1072#1073#1086#1090#1099' '#1087#1086' '#1074#1089#1077#1084' '#1076#1086#1083#1075#1072#1084', '#1074#1099#1073#1088#1072#1085#1085#1099#1084' '#1074' '#1090#1072#1073#1083#1080#1094#1077
      OnExecute = aToDoAddExecute
    end
  end
  object PopupMenu1: TPopupMenu [8]
    Left = 358
    Top = 152
    object N1: TMenuItem
      Action = aPayAdd
    end
    object N4: TMenuItem
      Caption = '-'
    end
    object N3: TMenuItem
      Action = aChangeMass
    end
    object N5: TMenuItem
      Action = aToDoAdd
    end
  end
  inherited PropStorageEh1: TPropStorageEh
    Section = 'rstDebts'
    Left = 150
    Top = 78
  end
  object trMassOperations: TpFIBTransaction [10]
    DefaultDatabase = MAINDM.MainDB
    TimeoutAction = TARollback
    Left = 80
    Top = 180
  end
  object dsChangeMass: TpFIBDataSet [11]
    SelectSQL.Strings = (
      'SELECT'
      '    RRESULT'
      'FROM'
      '    PR_DEBTS_CHANGEMASS(:PDEBTPARAMS,'
      '    :PDEBTADDPARAMS,'
      '    :PMAINPARAMS) ')
    Transaction = trMassOperations
    Database = MAINDM.MainDB
    Left = 40
    Top = 180
  end
  object dsToDoAdd: TpFIBDataSet [12]
    SelectSQL.Strings = (
      'SELECT'
      '    RCNT'
      'FROM'
      '    PR_TODO_ADD_MASS(:PDEBTSPARAMS,'
      '    :PDEBTADDPARAMS,'
      '    :PTODOPARAMS,'
      '    :PWORKTYPE,'
      '    :PDESC,'
      '    :PWORKER,'
      '    :PWORKDATE,'
      '    :PALARM,'
      '    :PWARNTYPE) ')
    Transaction = trMassOperations
    Database = MAINDM.MainDB
    Left = 42
    Top = 212
  end
  inherited XLSExportFile: TXLSExportFile
    Left = 42
    Top = 115
  end
  inherited SaveXLSDialog: TSaveDialog
    Left = 42
    Top = 147
  end
  inherited XLSExportDBGridEh: TXLSExportDBGridEh
    Left = 74
    Top = 115
  end
  object qCloseDebt: TpFIBQuery
    Transaction = trMassOperations
    Database = MAINDM.MainDB
    SQL.Strings = (
      'update rst_debts dt set dt.is_deleted = 1'
      'where dt.id = :pdebt_id')
    Left = 42
    Top = 244
    qoAutoCommit = True
    qoStartTransaction = True
  end
end
